home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
a_utils
/
_archvrs
/
unix
/
zoo-2_1.lha
/
zoo-2.1
/
zoodel.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-10-01
|
10KB
|
307 lines
#ifndef LINT
/* @(#) zoodel.c 2.19 88/02/06 21:23:36 */
/*$Source: /usr/home/dhesi/zoo/RCS/zoodel.c,v $*/
/*$Id: zoodel.c,v 1.4 91/07/09 01:54:11 dhesi Exp $*/
static char sccsid[]="$Source: /usr/home/dhesi/zoo/RCS/zoodel.c,v $\n\
$Id: zoodel.c,v 1.4 91/07/09 01:54:11 dhesi Exp $";
#endif /* LINT */
/*
Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
(C) Copyright 1988 Rahul Dhesi -- All rights reserved
*/
#include "options.h"
/* Deletes or undeletes entries from an archive. choice=1 requests
deletion and choice=0 requests undeletion. */
#include "zoo.h"
#include "portable.h"
#ifndef OK_STDIO
#include <stdio.h>
#define OK_STDIO
#endif
#include "various.h" /* may not be needed */
#include "zooio.h"
#include "zoofns.h"
#include "errors.i"
#ifndef NOSIGNAL
#include <signal.h>
#endif
int needed PARMS((char *, struct direntry *, struct zoo_header *));
int ver_too_high PARMS((struct zoo_header *));
extern int quiet;
void zoodel (zoo_path, option, choice)
char *zoo_path;
char *option;
int choice;
{
#ifndef NOSIGNAL
T_SIGNAL (*oldsignal)(); /* to save previous SIGINT handler */
#endif
int delcount = 0; /* how many entries we [un]deleted */
char matchname[PATHSIZE]; /* will hold full pathname */
register ZOOFILE zoo_file;
struct zoo_header zoo_header;
struct direntry direntry;
unsigned int latest_date = 0; /* so we can set time of archive later */
unsigned int latest_time = 0;
int pack = 0; /* pack after deletion? */
int file_deleted = 0; /* any files deleted? */
int one = 0; /* del/undel one file only */
int done; /* loop control */
int action; /* delete/undelete or adjust generation */
int subopt; /* sub option to action */
long gencount; /* generation count */
int doarchive = 0; /* whether to adjust archive gen count */
unsigned valtoshow; /* value to show in informative message */
int dodel = 0; /* selection of deleted files */
int selected; /* if current direntry selected */
/* values for action */
#define NO_ACTION 0 /* nothing */
#define DEL_UNDEL 1 /* delete or undelete file */
#define ADJ_LIM 2 /* adjust generation limit */
#define ADJ_GCNT 3 /* adjust generation count */
#define GEN_ON 4 /* turn on generations */
#define GEN_OFF 5 /* turn off generations */
/* values for subopt */
#define SET 0
#define INC 1
action = NO_ACTION;
if (*option == 'g') {
while (*(++option)) {
switch (*option) {
case 'A': doarchive = 1; break;
case 'q': quiet++; break;
case 'l': action = ADJ_LIM; break;
case 'c': action = ADJ_GCNT; break;
case '=':
subopt = SET; gencount = calc_ofs (++option);
if (action == ADJ_GCNT && gencount == 0)
prterror ('f', "Generation count must be nonzero.\n");
goto opts_done;
case '+':
if (action == NO_ACTION) {
if (option[1] =='\0') {
action = GEN_ON;
goto opts_done;
} else
prterror ('f', garbled);
} else {
subopt = INC; gencount = calc_ofs (++option);
goto opts_done;
}
case '-':
if (action == NO_ACTION) {
if (option[1] =='\0') {
action = GEN_OFF;
goto opts_done;
} else
prterror ('f', garbled);
} else {
subopt = INC; gencount = - calc_ofs (++option);
goto opts_done;
}
case 'd':
dodel++; break;
default:
prterror ('f', garbled);
} /* end switch */
} /* end while */
/* if normal exit from while loop, it means bad command string */
prterror ('f', garbled);
opts_done: /* jump here from exit in while loop above */
if (action == NO_ACTION)
prterror ('f', garbled);
} else {
action = DEL_UNDEL;
while (*(++option)) {
switch (*option) {
case 'P': pack++; break; /* pack after adding */
case 'q': quiet++; break; /* be quiet */
case '1': one++; break; /* del or undel only one file */
default:
prterror ('f', inv_option, *option);
}
} /* end while */
}
/* Open archive for read/write/binary access. It must already exist */
if ((zoo_file = zooopen (zoo_path, Z_RDWR)) == NOFILE) {
prterror ('f', could_not_open, zoo_path);
}
/* read archive header */
frd_zooh (&zoo_header, zoo_file);
if ((zoo_header.zoo_start + zoo_header.zoo_minus) != 0L)
prterror ('f', failed_consistency);
if (ver_too_high (&zoo_header))
prterror ('f', wrong_version, zoo_header.major_ver, zoo_header.minor_ver);
if (doarchive) { /* manipulate archive gen val */
unsigned zoo_date, zoo_time;
#ifdef GETUTIME
getutime (zoo_path, &zoo_date, &zoo_time); /* save archive timestamp */
#else
gettime (zoo_file, &zoo_date, &zoo_time);
#endif
if (zoo_header.type == 0)
prterror ('f', packfirst);
if (action == ADJ_LIM) {
unsigned newgencount;
if (subopt == SET)
newgencount = (unsigned) gencount;
else /* INC */
newgencount = (zoo_header.vdata & VFL_GEN) + (unsigned) gencount;
newgencount &= VFL_GEN; /* reduce to allowed bits */
zoo_header.vdata &= (~VFL_GEN);
zoo_header.vdata |= newgencount;
prterror ('M', "Archive generation limit is now %u\n", newgencount);
} else if (action == GEN_ON) {
zoo_header.vdata |= VFL_ON;
prterror ('M', "Archive generations on\n");
} else if (action == GEN_OFF) {
zoo_header.vdata &= (~VFL_ON);
prterror ('M', "Archive generations off\n");
} else
prterror ('f', garbled);
zooseek (zoo_file, 0L, 0); /* back to begining of file */
fwr_zooh (&zoo_header, zoo_file);
#ifdef NIXTIME
zooclose (zoo_file);
setutime (zoo_path, zoo_date, zoo_time); /* restore archive timestamp */
#else
settime (zoo_file, zoo_date, zoo_time);
zooclose (zoo_file);
#endif
return;
}
zooseek (zoo_file, zoo_header.zoo_start, 0); /* seek to where data begins */
done = 0; /* loop not done yet */
while (1) {
long this_dir_offset;
this_dir_offset = zootell (zoo_file); /* save pos'n of this dir entry */
frd_dir (&direntry, zoo_file);
if (direntry.zoo_tag != ZOO_TAG) {
prterror ('f', bad_directory);
}
if (direntry.next == 0L) { /* END OF CHAIN */
break; /* EXIT on end of chain */
}
/* select directory entry if it matches criteria */
selected = (
(action == DEL_UNDEL && direntry.deleted != choice)
||
(action != DEL_UNDEL &&
(dodel && direntry.deleted ||
(dodel < 2 && !direntry.deleted))
)
);
/* WARNING: convention of choice=1 for deleted entry must be same as
in direntry definition in zoo.h */
/* Test for "done" so if "one" option requested, [un]del only 1 file */
/* But we go through the whole archive to adjust archive time */
strcpy (matchname, fullpath (&direntry)); /* get full pathname */
if (zoo_header.vdata & VFL_ON)
add_version (matchname, &direntry); /* add version suffix */
if (!done && selected && needed(matchname, &direntry, &zoo_header)) {
prterror ('m', "%-14s -- ", matchname);
delcount++;
if (action == DEL_UNDEL) {
direntry.deleted = choice;
if (choice)
file_deleted++; /* remember if any files actually deleted */
} else { /* ADJ_LIM or ADJ_GENCNT */
if (direntry.vflag & VFL_ON) { /* skip if no versions */
if (action == ADJ_LIM) {
unsigned newgencount;
if (subopt == SET)
newgencount = (unsigned) gencount;
else /* INC */
newgencount =
(int) (direntry.vflag & VFL_GEN) + (int) gencount;
newgencount &= VFL_GEN;
direntry.vflag &= (~VFL_GEN);
direntry.vflag |= newgencount;
valtoshow = newgencount;
} else { /* ADJ_GCNT */
if (subopt == SET)
direntry.version_no = (unsigned) gencount;
else /* INC */
direntry.version_no += (int) gencount;
direntry.version_no &= VER_MASK; /* avoid extra bits */
valtoshow = direntry.version_no;
}
}
}
zooseek (zoo_file, this_dir_offset, 0);
#ifndef NOSIGNAL
oldsignal = signal (SIGINT, SIG_IGN); /* disable ^C for write */
#endif
if (fwr_dir (&direntry, zoo_file) == -1)
prterror ('f', "Could not write to archive\n");
#ifndef NOSIGNAL
signal (SIGINT, oldsignal);
#endif
if (action == DEL_UNDEL)
prterror ('M', choice ? "deleted\n" : "undeleted\n");
else {
if (direntry.vflag & VFL_ON)
prterror ('M', "adjusted to %u\n", valtoshow);
else
prterror ('M', "no generations\n");
}
if (one)
done = 1; /* if 1 option, done after 1 file */
}
/* remember most recent date and time if entry is not deleted */
if (!direntry.deleted)
if (direntry.date > latest_date ||
(direntry.date == latest_date && direntry.time > latest_time)) {
latest_date = direntry.date;
latest_time = direntry.time;
}
zooseek (zoo_file, direntry.next, 0); /* ..seek to next dir entry */
} /* endwhile */
if (!delcount)
printf ("Zoo: No files matched.\n");
else {
#ifdef NIXTIME
zooclose (zoo_file);
setutime (zoo_path, latest_date, latest_time);
#else
#if 0
fflush (zoo_file); /* superstition: might help time stamp */
#endif
settime (zoo_file, latest_date, latest_time);
#endif
}
#ifndef NIXTIME
zooclose (zoo_file);
#endif
if (file_deleted && pack) { /* pack if files were deleted and user asked */
prterror ('M', "-----\nPacking...");
zoopack (zoo_path, "PP");
prterror ('M', "done\n");
}
}